home *** CD-ROM | disk | FTP | other *** search
/ Apple Student Resource Set 1994 / Student Resource Set.iso / Demonstrations / Content / Shared Cast / Shared Cast.rsrc / BITD_1474 (.txt) < prev    next >
Encoding:
AmigaBASIC Source Code  |  1993-12-20  |  6.7 KB  |  117 lines
  1.                                                                                                                                                                                                                                                                <0x7c><0x60>varffffdfdf<0x7e>RSETvarffffdfe0<0x7e><0x7f>
  2. <0x60><0x7e><0x5f><0x7e><0x60>varffffdfb3<0x7d><0x5d><0x2028f6a9><0x5e><0x5f><0x60><0x7f><0x7f><0x7e><0x60>PTAB<0x7e><0x60>labelffffdfdf<0x5e><0x7e>COSvar6589>
  3. RSET<0x7e><0x60><0x7c><0x5f><0x2028f6c7>RSETRSETPUTEOFCOS<0x5e>PUT<0x7e>RSET56713EOFEOFPUT<0x5e><0x5e><0x5d>COSe_;_^6eCOS<0x5e>RSETPUTCOS<0x5e>PUTRSET<0x5f><0x7e>RSET<0x5e><0x5e>RSETRSET<0x5f><0x5f>RSETRSETPUT<0x5e>PUTCOS'
  4.  
  5. <0x7f><0x7e><0x60><0x7c><0x5f>/PUTEOFCOSPUTCOS<0x5d>RSET<0x5e>PUT<0x5e>COS<0x5d>COSCOS<0x5e><0x5e>COSEOFee;:;e<0x5d><0x5e><0x7d>PUTEOF<0x5e>PUTRSET<0x5f><0x7e>RSETRSETPUTRSET<0x5f><0x60><0x5f>RSETPUTRSETPUT<0x5e>PUTRSET+
  6. <0x7e>
  7. !<0x60>RSETCOSCOSPUTCOSPUTRSETPUT<0x5f><0x5d>PUTPUTEOFCOSPUTCOSPUT<0x5e>RSETRSETPUT<0x5d>PUTPUTCOSPUTPUTCOSCOS<0x5e>PUTPUT<0x5e>OBJECT.X0PUT<0x5d>COSPUTCOSCOSPUTCOSCOSPUTCOSPUTCOS<0x5e>PUT<0x5e>PUTCOS=
  8. )<0x5f>PUTCALLCALLePUTCOSPUT<0x5f>PUTPUT<0x5d>COSCOSCALL_COS__CALLCALLeCALLCOS_COS                                                                                                                                         CALLCALLe__CALLCALL_COSCOSCALLCOSCOS<0x2028f7cf>CALLCOS_COSCALLCOSCALLCALLCOSCALLeCOSCALLCOSCALLCOSCOS=
  9. &HdfdfCALLCOSCALLCOSPUT<0x5e>PUTRSETCOSPUTCOS<0x7e>CALL<0x2028f7f3>__CALL_eCALL__COSCALLCOSPUTeCOSCOS_CALL<0x7c>_131COSMKI$COSCOSCALLCOSCOSeeCALLeCALLCOSCALLCALL<0x7e>COSvar5f89=                                                                                                                                                                                                                                PUT                                                                                                     <0x7e>COS
  10. PUT<0x7e>COSvarffff8389<0x7d>_
  11. CALL<0x7e>_COSCOS;PUTCOSCALL<0x87,0x02>44383COSCALL<0x5d>COSCALL_CALLCOSCALLCOSCOSe<0x7e>COSlabelffff8389COSOR
  12. labelffffb18cCVI<0x7c>
  13. <0x2028f8cb><0x60><0x5f>COSCOSCALLCOSCALLPUTCOSeCALL__CALL<0x87,0x02><0x2028f8dc>CALLCOSPUTCOSCALL_YY<0x5f>PUTCOS<0x7d>_24415CALL_COSCALLCOSCOSCALLeCALLPUTCALLe_COSCALLeCOS<0x7f><0x7c>
  14. varffffb2ad<0x87,0x05>CHR$RIGHT$<0x56><0x7d>
  15. &He0df_COS_                                                                                                     COSCALLCOS_CALL<0x7d>_<0x2028f949>CALL_COSCOSPUT_Y_<0x7e>Y0<0x5f><0x5e>COSCALL_YeY_CALL_COS_COSeCALLeCALL<0x7c>COS<0x2028f969>CALLCOSCOSCALLCOSCALL_COS<0x7d>
  16. PUTCOMMON<0x4f><0x5d,0x02><0x2028f97b><0x56>RETURNCVS<0x55>EQV<0x7d>
  17. CALLeCALLeCOSCOS<0x7d>_(_CALL_CALL_PUTCOSCALL5Y_Y_Y                                                                                                                                                                             CALL__5}__COS_;COSCALLCALLCOS_COSCOS_COSCOSCALLCOS_PUT<0x7e>COSvarffff8389<0x7e>
  18. <0x2028f9f1><0x50>MID$PRINTCOMMONMID$<0x48><0x7c>
  19. <0x2028f9fa>ORRETURNCVIRETURN<0x56><0x7d>
  20. <0x2028fa02><0x60><0x5f>COSCALLCOS_COSCALLCALL__CALL<0x7e>_0PUTCOSPUT_Y5YY;_Y5_<0x60>PUTeCALL;<0x7e>_131;CALLCOS__eCALLCOSCOS_COSCALLCALLCOSCALL<0x7e>COSlabel5f83_
  21. COS<0x7e>
  22. <0x2028fa41>ANDXOR<0x5f>RNDPRINT<0x48><0x7c>
  23. <0x2028fa4a>ANDRETURNCHR$REMÔ˝
  24. <0x2028fa52><0x60>PUTCALLeCALLCALLeeCALL_CALL_COSPUTPUTCOS_<0x7d>Yvar5f35<0x7e>Y<0x2028fa6b>_Y<0x5f>PUTCALL;CALLeCALL__CALL<0x7e>_<0x2028fa7a>COS_e_CALLe<0x7e>COS__CALLCALL_PUT<0x7e>
  25. <0x2028fa8f><0x50><0x56>PRINTCOMMONOPEN<0x4e><0x7c>
  26. <0x2028fa98>AND<0x56>RIGHT$CVI<0x54>EQV<0x7e>
  27. 3<0x5f>PUTCOSCALLeCOSCALLCALLCOSCOSCALLCOSPUT_YY_Y5_Y<0x2028fab7>5YY5Y5XRSET<0x7d>COS<0x2028fac2>CALL_COSCALLCOSCOSCALL_;_                                                                                                                                         <0x2028fb02>PUT_COSCALLeCALLCOS_CALL__COS<0x7e>
  28. <0x2028fb11>OR<0x50>ELSEELSEOPEN<0x4d><0x7c>
  29. <0x2028fb1a><0x56>RIGHT$CVSCHR$RETURNXOR<0x7e>
  30. )PUT<0x5f>_COS_CALLCOSCOSCALLPUTCOSCOS_CALL5;YY_Y5_Y5Y;Y_<0x5f>CALLPUT_COSCOSCALLCALLCOSCOSCALL_COS_<0x7c>COS<0x2028fb50>eCALLCALLeCALLeCOSCALL__CALLCOS<0x7e>
  31. RIGHT$<0x7c>ELSEvarffffabcd<0x7c>
  32. <0x2028fb69>RNDRETURNCVICVDCVIXOR<0x7e>
  33. PUTCOS_<0x7e>COS.PUTPUTCOS__YY_YY_Y__Y5__5Y5PUTPUTePUTCOS/55CALL_CALLCOS__CALLCOSCOSCALLYY__COSePUTCALL<0x7e>_varffff8989<0x7e>
  34. <0x2028fbb0>OR<0x49>RNDCOMMONCLOSE<0x47><0x7c>
  35. <0x2028fbb9>RIGHT$CVSCHR$DATA<0x55>OR<0x7e>
  36. &Hdfad_COSCOSPUTPUTCALL__YCALLCALL<0x7e>_&H8389COS_Y__Y5Y55<0x60>352455_CALLPUTY5_COSCOSCALLePUT<0x7e>5<0x2028fbf2>_Y5CALLCOS_COSCOS_CALL                                                                                                                                                                                                                                                              
  37. <0x2028fc33><0x56><0x7d>RSETPUTPRINT<0x48><0x7c>
  38. <0x2028fc3c>RIGHT$RETURNgRETURNAND<0x55><0x7e>
  39. /<0x5f>RSETCOSPUTPUT_Y5CALL_COSCALL__<0x60>PUTCOSCOSCALL_COS_Y5Y5Y_<0x5f>PUTPUTCOS5YPUT55_YCOSYCOSCALLCOS55PUTY<0x7d>_labelffff8389COS<0x7e>_
  40. COS<0x7e>
  41. <0x2028fc82>XORELSECOS<0x5b><0x5d>OPEN<0x7c>
  42.  
  43. <0x55><0x2028fc8d>RIGHT$CVIREMÒÚ˛
  44. 5<0x60>PUTCALLPUTCOS55_COSYXATN_COSPUTCOSCOSCALLCOSPUTCALL_ATNY5Y;Y<0x7f>COSPUTPUTY5                                                                                               YYCOSCALLCOSCOSeY_YY5YY_COSPUT<0x7e>_varffff8983<0x7e>
  45. <0x2028fcfa><0x56>COSkEOFRSET<0x5f><0x7c>
  46. <0x2028fd03><0x56>RIGHT$CHR$CVICVIOR<0x7e>
  47. $<0x60>PUTeCOSCOSCALLCALL_/CALLCALL_PUT__PUT_CALLCOSCALL_CALLCOS;CALL5Y_<0x60>RSETCOSPUTCOSCOSCALL__<0x2028fd32>X_COSCOSPUT                                                                                               _Y5Y5e<0x7e>COS<0x2028fd6a>CALL_CALLCOSCOS<0x7e>
  48. <0x2028fd72><0x50>kee<0x5d><0x60><0x7c>
  49. <0x2028fd7b><0x56>XORRIGHT$CHR$CVSOR<0x7e>
  50. 6<0x5f><0x5f>COSCOSCALLCOSPUTCALLCOSY_CALLeCALLCOS_CALL_COS_COSCALL_Y__XYEQVPUT<0x5f><0x5e>PUTCALL^^_CALLCOSCOSPUT_CALL_CALL_YY5_CALLCALLPUTCOSe<0x7d>COS<0x7e>
  51.  
  52. <0x4f><0x7e>COSvar65de<0x7c>
  53. <0x2028fdc9>EQVXORRIGHT$RIGHT$/<0x7e><0x7e>
  54. PUTCALL_<0x7e>COS8CALLCOSPUTCOSCOSCALL_CALL                                                                                         _CALL__Y;_5__<0x7f><0x5f>PUT<0x60><0x5e><0x7d>PUT137<0x60>COSPUTCOS_COSCALLCOS_COSCALL_COSPUTEOF<0x7e>COSlabelffffadea<0x60><0x7e>
  55. <0x2028fe3c><0x50><0x5e>COS<0x5d>_;<0x7d>
  56. +EQVORRETURNRETURN<0x55>RETURNEQV<0x55>
  57.  
  58. <0x60><0x5f>_CALL__COSCOSCALLCOSCOSPUT__Y_Y_4CALL_X5_5^5_<0x7f><0x5f>                                                                                                                                                                             <0x5f><0x7e>RSET<0x2028fea5><0x5f>PUTPUT<0x5d>CALL__e5COSPUTPUTCOSPUT<0x5e><0x5e>PUTCOSPUTRSET<0x5f><0x60><0x60>
  59.  
  60. XOR<0x50>PUT<0x5d>COSCOS_<0x7d>
  61. *EQVRIGHT$RETURNCVIORXOR<0x7f>AND
  62.  
  63. <0x60>PUTCOS__eCALL_COSPUTCOSCOSPUTCALL_Y;Y__5Y_Y_YCALLCALL<0x7f><0x5f>PUT<0x5e>PUT<0x7e>COS<0x2028fef6>PUTPUTCOSCOSCALLCOS<0x5e>COSCOSCALL_<0x7e>COSlabelffffadadCOS<0x7e><0x5f><0x5f>
  64. <0x56>XORPUT<0x5d><0x7e>COMMON<0x7d>
  65. &Hf3f2RNDRETURN/<0x56>XOROR
  66.  
  67. <0x60>COS;<0x7c>_6eCOSCOS<0x5d>CALL<0x5e>COSCOSY_Y5YX5;CALL_COS_<0x7f><0x5f><0x5f>PUT<0x7d>COSCOSPUT<0x5d>COSCOS                                                                                                                                         
  68. PUT<0x7e>RSET<0x7e><0x5f>&Hb3df<0x60><0x60><0x5f>
  69. <0x56>>OPENCOMMONCOMMONELSE<0x7d><0x7d>
  70. <0x2028ff98>EQVEQV<0x56><0x50>ANDAND<0x56>OR
  71. <0x7f><0x5f>CALL<0xfc,0x02>8CALL_COSCALL<0x5d>CALL_COSCOSCALL_YY__Y_COSCALL<0x5f><0x7f><0x5f>PUTCOSCOS_<0xfc,0x02><0x2028ffc4>CALLCOSCOSeCALLCOSCOSRSETPUT<0x5f><0x60>labelffffe0e0<0x5f><0x7e><0x60><0x60>OPENCOMMONCOMMON<0x5e>EQV<0x7d>
  72. 7EQV<0x7f>ORXORRNDRETURNXOROR
  73. <0x7f><0x60>;COS_CALL_eCOS_COS__CALLeCOSCOS_COSCOSeCOS_5_COSCOS<0x7e><0x7d><0x7f>PUTRSETCOSPUTCOSCOSCALLCOSCOSPUTPUTCOS_COSCALLePUT<0x7e>COSlabelffffdfb3<0x5f><0x7e><0x60>
  74. =<0x7e><0x7f><0x60><0x7d>PRINT<0x5d><0x5f><0x7f><0x7d>
  75. 2<0x7f><0x55>CVS<0x55>EQVRETURNORRND
  76. <0x7f><0x60>COS__;_COS;_COS<0x7e>_label3b5fe#PUTCOS_COSCALL_PUTCOSCOSCALLCOSCOS<0x7f>RSETPUTPUTCOSCOSPUTCOSPUTCOSPUTCOS_CALLCOS_COSCALLCOSCALLRSETPUTRSET<0x5f><0x7e><0x60>&Hffff<0x5f><0x7f><0x60>
  77. <0x50>                                                                                                                                                                                                                             <0x5d><0x5f><0x7f><0x7d>
  78. 7EQVRIGHT$CVIREMÛÛÚ÷
  79. <0x7f><0x5f>__COS__;_COS5CALLCOS5_COS<0x7e>_4COSCALLeCALLCOSCALLPUTPUTCALL_<0x60>PUT<0x5d><0x5f>COS5XCALLCOS<0x60>COSPUT<0x7d>COS<0x202900ec>_CALL_COSCOSPUT<0x60>RSET<0x5f><0x5f><0x7e><0x60><0x7f><0x5f>
  80. <0x202900fe>OR<0x7e>RSET<0x5d>COS<0x5f><0x7f><0x7d>
  81. <0x7e>XOR<0x2029010a>CINTRETURNEQVANDAND
  82. <0x7f><0x60>COSCALL;CALL;CALL<0x7d>_<0x2029011b>5_CALL_5<0x7e>_var65a7<0x7e>COS33673_PUT<0x5d>COS<0x5f>COSY4_YCOSPUT<0x7d>COS<0x2029013a>CALL__eCALLCALL<0x5f>PUT<0x5e>PUT<0x60><0x7e><0x5f><0x20290148><0x60><0x5f><0x7f>
  83. <0x50>PRINT<0x5f>COS<0x5d><0x5e><0x7f><0x7d>
  84. 2EQVEQVXORRIGHT$ONXOR<0x56>RIGHT$
  85. <0x7f>                                                                                               5;CALL;__;<0x7d>_<0x2029019b>;_Y;;CALL_COSCOSCALL2COSeCOS_COSPUTCOSPUTCALL_^4PUT5_CALLPUTPUTCOSCALL<0x7c>_<0x202901bd>PUTCOSCOSPUTPUT<0x7d>COS<0x202901c5><0x60><0x7f>
  86. OR<0x50>RSETEOFe<0x5e><0x7f><0x7d>
  87. 0EQVXORRIGHT$RIGHT$CVS=ORRND<0x55><0x60><0x60>__;_e_e<0x7d>_<0x202901e7>;_Y;5<0x7e>                                                     CALL_eePUT                                                                                                                                   <0x7d>COS&H35adCALL_ATN__CALLCOSCALLCOSCALLCALL<0x7e>_labelffff8389CALL<0x7e>COS<0x2029027a>PUTCOSCOS<0x5e><0x60>
  88. <0x50><0x60><0x5d>e<0x5c>EOF<0x60>
  89. <0x7e>
  90. 45745<0x55>CHR$EQV<0x56><0x56>RIGHT$<0x60>PUTCOS__e<0x7e>_
  91. e<0x7e>_&H3b83;CALL_;55_;5CALLCALL<0x7c>COS4_COSCALL5Y5^eCALLCALL_5                                                                                                                                   _COS__COS_e<0x7e>COS<0x202902fb>__eCALLRSET
  92. EQV<0x7e><0x5d>EOFe<0x5e><0x60><0x60><0x7e>
  93. 7<0x7f><0x56>RNDAND<0x56><0x7f><0x56><0x56>RIGHT$<0x5f>RSET;__e__COS_COS;eCALL_5<0x7e>___5<0x7e>_label355fCOS<0x7e>_
  94. COS5COS5__Y__Y_Y5_Y_CALLCALLCOSCALLe_CALLe                                                                                               <0x20290382>PUT
  95. =<0x7e><0x5d>COS<0x5a>e<0x7f><0x60><0x7e>
  96. 255<0x7f><0x56><0x7d>OR<0x7f><0x56><0x56>RNDPUTPUT_;e__<0x7e>COS&H5f89COS<0x5d>CALLCOSeCOS5CALL;5e<0x7e>_<0x202903b2>COSCALLY__COSCOS_Y55_<0x7e>Y5_Y<0x7e>54_CALLCOS_COSCOSCALL__;_COSCOS
  97. <0x7f><0x7d>RSET<0x59>Ae<0x5e><0x5e><0x7e>
  98. <0x202903e1><0x7f><0x7f>XOROR<0x60>2<0x7d><0x56>XORXOR<0x60><0x5f>5_Y_COSCOSRSETRSET<0x60><0x5f>RSETCOSPUTCOS<0x7e>_<0x202903fe>;_CALLRSETCALLCOSCALL__A<0x7e>_<0x2029040b>COSCALL;5_Y__;__<0x7c>5<0x20290419>S5COSCOSCALLCALL_CALL<0x7e>_<0x20290424>COSCOS<0x50><0x60>PRINT<0x59>e;<0x5a><0x60><0x5f><0x7e>
  99. 5<0x7f>XORORRNDXOR<0x7d>XOREQVOR<0x5f>PUT_;_COSCOS<0x7f>=<0x7f><0x60><0x5e>COS<0x5e><0x7d>COS5__COSPUT_Y5CALLCALL_CALL__CALLCOSCALL;COSY;_;CALL<0x20290464>_5_4/S<0x7e>5<0x2029046d>/YCALLCOSCOS<0x7c>_<0x20290475>COS<0x49><0x60>PRINTEOF<0x5a>                                                                                                                                                                                   <0x5e><0x7e>
  100. -3.87741e+31<0x7f>PRINTEQV<0x7f>RIGHT$PUTRSET;YePUT<0x60><0x7f><0x7f>RSETCOSRSETPUT<0x5e><0x5f>PUTCOSeCOS_PUT<0x7e>5<0x7d>_COSPUTCOS_Y;<0x7d>_var3b83<0x7d>55/55Y55Y_CALLCALL__YCOS<0x50><0x60><0x7d><0x5c>de<0x5d><0x5f><0x5f><0x7e>
  101. &Hf4f2<0x55>RETURNAND>EQV<0x56>RIGHT$<0x5f>PUT_e COS<0x5f><0x7f><0x7f><0x5f><0x5f><0x60><0x5f><0x5e><0x5f><0x60>COSCOS<0x5c>_COSCOS0COSCOS_CALL55<0x5f>COS_RSET<0x5e>COSY_PUT<0x7d>COS44377                                                     /55Y5//55YCALLCOS__COS<0x50><0x5f>ASC<0x5d><0x5c>COS<0x5d><0x60><0x60><0x7e>
  102. !XORRETURNREMÚ˝ˇ’≤‡≥5É≥fl͡≥≥fl≥fl≠ˇâ≥≠ââ
  103.                                                                                                                                                                              ;_<0x7e>5<0x7e>COSlabelffffade0PUT<0x7e>COS<0x202905de><0x5e>eCOSCALL_;_YY55/<0x7d>5'/5/55CALLCOSCALL<0x56>RSET<0x33,0x02>PUTEOFRSETEQV<0x7f>
  104.  
  105. EQVOREQV                                                                                                                                                                                <0x7d>EQV<0x55>RIGHT$RSETPUT_eCOS<0x5f><0x5f><0x60><0x5d>COSCOS<0x7e><0x5f>7<0x60>_COSEOFCOSCOSPUTe<0x2029064c>PUTY5Y5PUTRSETCOS<0x60><0x7f>PUTCOSCOSPUTCOS><0x7e>COS<0x2029065f>__;55//55//<0x7d>5$CALL__COS<0x7d>=COMMON<0x7f>EOF<0x5d>RSET<0x60>RSET
  106.  
  107. XORXOR<0x7f>OROPENREAD<0x7d><0x7e>ORRETURN<0x5f>PUT;eCOS<0x5e>RSETPUT<0x5e>COSCOSPUT<0x20290693><0x5e>PUT_COS<0x5c><0x7d>COS65YCOS5;4CALLCOS<0x5e>COSRSET<0x60>COSCOSPUT<0x5d>PUTCOSCOSPUT_CALL__<0x7c>5#/5/5/_CALL__CALL_<0x7d><0x60><0x7c><0x5f><0x5f>RSET<0x5d>EOF<0x5c>
  108.  
  109. XOREQV<0x7f><0x56>RETURNNEXT=<0x7c>ORRIGHT$PUT<0x5e>__<0x7d>COS                                                                                                                                         COS__5_<0x7e>COS<0x20290719>eCOS_COS_<0x7e>51602871177PUTCOS<0x5f>PUTCALLePUTCOSCALLCOS_PUT5_5;Y55/5/5YCALL__<0x20290741>COSPUT_COS<0x60><0x5f>PRINTRSET<0x59>RSET<0x5e><0x5c><0x5f>
  110.  
  111. <0x7f><0x7f>XORORRIGHT$ANDEQV<0x7d>XORRIGHT$<0x5f>PUTe<0x7e>_<0x7e>COS
  112. CALL<0x7e>_ CALLCOSEOFCOS;__COS_COSATN_PUTCOS<0x5f><0x5e>PUTCOS<0x5e>=<0x5e>_COSeCALL__COS5__YY<0x7c>5-_COS__PUTCOSCALL;ePUT<0x5f><0x5f>ASC<0x5f>eeCOMMONRSETRSET
  113.  
  114. EQVXORXORRIGHT$/AND<0x7f><0x7e>XORRND<0x60>COS_;_e__eCOSCOSeCOSeCOS<0x7d>_
  115.                                                            COSCOSePUTCOSPUTRSETCOSCOS<0x5e>RSET<0x5f>COS_eCOSY__COS                                                                                         <0x7e>5)Y5YCALL_CALLCOSCOS__e_COSCOS<0x5f><0x7d>ATN<0x5c><0x5a>d<0x5d><0x5f>k
  116.  
  117. <0x7f><0x7f>EQVOROPENAND<0x7f>ASCEQV<0x56><0x5f>PUT;__CALL5<0x7e>_<0x20290861>e_CALL__;_55;CALL;<0x7e>COS0EOFePUTPUTeCALLPUT<0x5f>PUT__5;5Y_COSY<0x7e>51Y4_CALLAeCOS_Y;;55COS_<0x5f><0x7d>COMMON<0x5f>1.839e-314EQVXORRIGHT$ORANDXOR<0x81,0xcccccccd><0x56>PUTCOS;;_;Y                                                                                               _;__;<0x7e>_<0x7e>;1_;eCOSPUT<0x5c>COSeCOSCOS<0x5d>RSETCALLY;_Y;;<0x39,0x02><0x20290901>_COS_COSPUT<0x7e>_7;__Y;CALLCOS<0x5f>PRINT<0x60>EOF<0x5e><0x5b><0x5a><0x59>A